(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      5736,        177]
NotebookOptionsPosition[      5266,        157]
NotebookOutlinePosition[      5601,        172]
CellTagsIndexPosition[      5558,        169]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"ListPlot3D", "[", 
  RowBox[{
   RowBox[{"Import", "[", 
    RowBox[{"\"\</out/psist.txt\>\"", ",", "\"\<Table\>\""}], "]"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Style", "[", 
       RowBox[{"\"\<r, \:043c\>\"", " ", ",", "30"}], "]"}], ",", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\<z, \:043c\>\"", ",", "30"}], "]"}], ",", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\<psi, \:0412\:0431\>\"", ",", "30"}], "]"}]}], "}"}]}], 
   ",", " ", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Subscript", "[", " ", 
        RowBox[{"\[Psi]", ",", "st"}], "]"}], "[", 
       RowBox[{"r", ",", "z"}], "]"}], ",", "30"}], "]"}]}], ",", 
   RowBox[{"Mesh", "\[Rule]", "60"}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Black", ",", "15"}], "]"}]}], ",", 
   RowBox[{"BoxStyle", "->", 
    RowBox[{"Dashing", "[", 
     RowBox[{"{", 
      RowBox[{"0.009", ",", "0.009"}], "}"}], "]"}]}], ",", 
   RowBox[{"Ticks", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.05", ",", "0.10", ",", "0.15", ",", "0.20"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.2"}], ",", 
        RowBox[{"-", "0.1"}], ",", "0", ",", "0.1", ",", "0.2"}], "}"}]}], 
     "}"}]}], ",", 
   RowBox[{"Mesh", "\[Rule]", "60"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{
      RowBox[{"Opacity", "[", "0.6", "]"}], ",", "Orange", ",", " ", 
      RowBox[{"Specularity", "[", 
       RowBox[{"White", ",", "1"}], "]"}]}], "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.454279478354476*^9, 3.454279487526351*^9}, 
   3.513280153652075*^9, {3.513449857326224*^9, 3.513449865805482*^9}, 
   3.513449921067572*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Import", "::", "\<\"nffil\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"File not found during \\!\\(Import[\\(\\(\\\"out/psist.txt\
\\\", \\(\\({\\\"Table\\\"}\\)\\)\\)\\)]\\). \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/Import/nffil\\\", ButtonNote -> \
\\\"Import::nffil\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.513449887537938*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ListPlot3D", "::", "\<\"arrayerr\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\($Failed\\) must be a valid array or a list of valid \
arrays.\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.513449887777672*^9}],

Cell[BoxData[
 RowBox[{"ListPlot3D", "[", 
  RowBox[{"$Failed", ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      StyleBox["\<\"r, \:043c\"\>",
       StripOnInput->False,
       FontSize->30], ",", 
      StyleBox["\<\"z, \:043c\"\>",
       StripOnInput->False,
       FontSize->30], ",", 
      StyleBox["\<\"psi, \:0412\:0431\"\>",
       StripOnInput->False,
       FontSize->30]}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    StyleBox[
     RowBox[{
      SubscriptBox["\[Psi]", "st"], "[", 
      RowBox[{"r", ",", "z"}], "]"}],
     StripOnInput->False,
     FontSize->30]}], ",", 
   RowBox[{"Mesh", "\[Rule]", "60"}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{
      RowBox[{"GrayLevel", "[", "0", "]"}], ",", "15"}], "]"}]}], ",", 
   RowBox[{"BoxStyle", "\[Rule]", 
    RowBox[{"Dashing", "[", 
     RowBox[{"{", 
      RowBox[{"0.009`", ",", "0.009`"}], "}"}], "]"}]}], ",", 
   RowBox[{"Ticks", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.05`", ",", "0.1`", ",", "0.15`", ",", "0.2`"}], "}"}], ",", 
      
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.2`"}], ",", 
        RowBox[{"-", "0.1`"}], ",", "0", ",", "0.1`", ",", "0.2`"}], "}"}]}], 
     "}"}]}], ",", 
   RowBox[{"Mesh", "\[Rule]", "60"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{
      RowBox[{"Opacity", "[", "0.6`", "]"}], ",", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], ",", 
      RowBox[{"Specularity", "[", 
       RowBox[{
        RowBox[{"GrayLevel", "[", "1", "]"}], ",", "1"}], "]"}]}], "]"}]}]}], 
  "]"}]], "Output",
 CellChangeTimes->{3.513449888033588*^9}]
}, Open  ]],

Cell[BoxData[""], "Input", "Input",
 CellChangeTimes->{3.454279583432601*^9, 3.513449874974682*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.454279471948226*^9, 3.454279472073226*^9}}]
},
WindowSize->{1216, 652},
WindowMargins->{{24, Automatic}, {28, Automatic}},
FrontEndVersion->"6.0 for Linux x86 (32-bit) (April 20, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 1925, 50, 77, "Input"],
Cell[2518, 75, 463, 9, 24, "Message"],
Cell[2984, 86, 243, 6, 24, "Message"],
Cell[3230, 94, 1823, 54, 95, "Output"]
}, Open  ]],
Cell[5068, 151, 99, 1, 32, "Input"],
Cell[5170, 154, 92, 1, 32, "Input"]
}
]
*)

(* End of internal cache information *)
